home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1311copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.3 KB  |  41 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1311"
  4. Company = "Corel"
  5. title = "Corel Print House"
  6. Price = 29.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows 95 CD-ROM"
  13. Title Description = "The fast and easy way to create great-looking greeting cards, stationery, banners, signs, posters and more. Featuring an intuitive and easy-to-use interface, fully-customizable drawing tools, 600+ professionally-designed samples and an amazing selection of clipart, fonts, photos and verses."
  14.  
  15.  
  16.  
  17. -------------------------------------
  18. dline = ""
  19. counter = 0
  20. repeat while dline <> title number
  21. counter = counter + 1
  22. dline = GetWord(1,   GetLine(titl,counter) )   
  23. test(dline = title number, LineInTitle = counter)
  24. end repeat 
  25.  
  26. starttitle = LineInTitle
  27. num of titles shown = 6
  28. endtitle = starttitle + num of titles shown - 1
  29. titles = ""
  30. title highlight = ""
  31. repeat with counter = starttitle to endtitle
  32. nextline = GetLine(titl,counter)
  33. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  34. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  35. end repeat
  36. dpage = CurrentPageID
  37.  
  38. newtitle = FALSE
  39. end if
  40.  
  41.